package--ensure-init-file: widen requires save-restriction

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index dd1c5dfc056c9d5ebfc78056385db36e35e17652..2fb54f0d944ba7f78bd8d7ef09f96b1b786e4df9 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1782,9 +1782,10 @@ using `package-compute-transaction'."
             (if buffer
                 (with-current-buffer buffer
                   (save-excursion
-                    (widen)
-                    (goto-char (point-min))
-                    (search-forward "(package-initialize)" nil 'noerror)))
+                    (save-restriction
+                      (widen)
+                      (goto-char (point-min))
+                      (search-forward "(package-initialize)" nil 'noerror))))
               (with-temp-buffer
                 (insert-file-contents user-init-file)
                 (goto-char (point-min))